home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / dept21.dir / 00069_Script_Man < prev    next >
Text File  |  1994-11-11  |  8KB  |  227 lines
  1. global gBlockList,gGirlList,gEntranceList,totalHpoint,moveV,moveH,RmoveH,RmoveV,stepNo,manH,manV,raderH,raderV,gMovieList,movieNo,movieName
  2.  
  3.  
  4. on moveMan direction
  5.   put stepNo + 1 into stepNo
  6.   if direction = 8 then
  7.     put 0 into moveH
  8.     put -9 into moveV
  9.     put 0 into RmoveH
  10.     put -72 into RmoveV
  11.     put 19 into startCast
  12.     put 22 into endCast
  13.   else if direction = 2 then
  14.     put 0 into moveH
  15.     put 9 into moveV
  16.     put 0 into RmoveH
  17.     put 72 into RmoveV
  18.     put 15 into startCast
  19.     put 18 into endCast
  20.   else if direction = 4 then
  21.     put -12 into moveH
  22.     put 0 into moveV
  23.     put -48 into RmoveH
  24.     put 0 into RmoveV
  25.     put 23 into startCast
  26.     put 26 into endCast
  27.   else if direction = 6 then
  28.     put 12 into moveH
  29.     put 0 into moveV
  30.     put 48 into RmoveH
  31.     put 0 into RmoveV
  32.     put 27 into startCast
  33.     put 30 into endCast
  34.   end if
  35.   IF NOT(THE CASTNUM OF SPRITE 13 = startCast) THEN
  36.     SET THE CASTNUM OF SPRITE 13 TO startCast
  37.     UPDATESTAGE
  38.     mMove girl1
  39.     mMove girl2
  40.     EXIT
  41.   END IF
  42.   if direction = 2 then
  43.     repeat with spno in gEntranceList
  44.       if sprite 14 intersects spno then
  45.         if spno = 29 then
  46.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  47.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  48.           UPDATESTAGE
  49.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  50.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  51.           UPDATESTAGE
  52.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  53.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  54.           UPDATESTAGE
  55.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  56.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  57.           UPDATESTAGE
  58.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  59.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  60.           UPDATESTAGE
  61.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  62.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  63.           UPDATESTAGE
  64.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  65.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  66.           UPDATESTAGE
  67.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  68.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 12
  69.           UPDATESTAGE
  70.           put 393 into manH
  71.           put 155 into manV
  72.           put 385 into raderH
  73.           put 146 into raderV
  74.           play done        
  75.           exit
  76.         end if
  77.       end if
  78.     end repeat
  79.   end if
  80.   if direction = 8 then
  81.     repeat with spno in gEntranceList
  82.       if sprite 14 intersects spno then
  83.         if spno = 34 then
  84.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 5
  85.           UPDATESTAGE
  86.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 5
  87.           UPDATESTAGE
  88.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 5
  89.           UPDATESTAGE
  90.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 10
  91.           UPDATESTAGE
  92.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 15
  93.           UPDATESTAGE
  94.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  95.           UPDATESTAGE
  96.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  97.           UPDATESTAGE
  98.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  99.           UPDATESTAGE
  100.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  101.           UPDATESTAGE
  102.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  103.           UPDATESTAGE
  104.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  105.           UPDATESTAGE
  106.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  107.           UPDATESTAGE
  108.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  109.           UPDATESTAGE
  110.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  111.           UPDATESTAGE
  112.           put 393 into manH
  113.           put 155 into manV
  114.           put 385 into raderH
  115.           put 146 into raderV
  116.           play movie "DEPT22.DIR"        
  117.         end if
  118.       end if
  119.     end repeat
  120.   end if
  121.   set the locH of sprite 14 = the locH of sprite 14 + RmoveH
  122.   set the locV of sprite 14 = the locV of sprite 14 + RmoveV
  123.   updateStage
  124.   if stepNo >= 5 then
  125.     repeat with spno in gGirlList
  126.       if sprite 14 intersects spno then
  127.         if random(20) = 2 then
  128.           go to marker(1)
  129.           
  130.           nanpa
  131.           
  132.           set the locH of sprite 14 = the locH of sprite 14 - RmoveH
  133.           set the locV of sprite 14 = the locV of sprite 14 - RmoveV
  134.           exit
  135.         end if
  136.         put getaProp(gMovieList,spno) into movieNo
  137.         put item 1 of line movieNo of the text of cast "CommentList" into Hpoint
  138.         SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  139.         set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  140.         puppetSprite 48, False
  141.         updateStage
  142.         sound stop 1
  143.         put "D" into movieName
  144.         playQTMovie
  145.         
  146.         put value(Hpoint) into thisHpoint
  147.         if thisHpoint > 0 then
  148.           set the text of cast "Comment" to "H.Point  +"&Hpoint
  149.         else
  150.           put abs(thisHpoint) into Hpoint
  151.           set the text of cast "Comment" to "H.Point  -"&Hpoint
  152.         end if
  153.         put totalHpoint + thisHpoint into totalHpoint
  154.         put totalHpoint into field "Hpoint"
  155.         put 0 into stepNo
  156.         EXIT
  157.       END IF
  158.     END REPEAT
  159.   end if
  160.   repeat with spno in gBlockList
  161.     if sprite 14 intersects spno then
  162.       SET THE LOCV OF SPRITE 14 TO THE LOCV OF SPRITE 14 - RmoveV
  163.       set the locH of sprite 14 to the locH of sprite 14 - RmoveH
  164.       UPDATESTAGE
  165.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  166.       UPDATESTAGE
  167.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  168.       UPDATESTAGE
  169.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  170.       UPDATESTAGE
  171.       SET THE CASTNUM OF SPRITE 13 TO startCast
  172.       UPDATESTAGE
  173.       mMove girl1
  174.       mMove girl2
  175.       EXIT
  176.     end if
  177.   end repeat
  178.   IF NOT(SPRITE 14 WITHIN 3) THEN
  179.     SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  180.     set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  181.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  182.     UPDATESTAGE
  183.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  184.     UPDATESTAGE
  185.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  186.     UPDATESTAGE
  187.     SET THE CASTNUM OF SPRITE 13 TO startCast
  188.     UPDATESTAGE
  189.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  190.     UPDATESTAGE
  191.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  192.     UPDATESTAGE
  193.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  194.     UPDATESTAGE
  195.     SET THE CASTNUM OF SPRITE 13 TO startCast
  196.     UPDATESTAGE
  197.     mMove girl1
  198.     mMove girl2
  199.   ELSE
  200.     if direction = 8 or direction = 2 then
  201.       put 2 into step
  202.     else
  203.       put 1 into step
  204.     end if
  205.     repeat with i = 1 to step
  206.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  207.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  208.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  209.       UPDATESTAGE
  210.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  211.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  212.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  213.       UPDATESTAGE
  214.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  215.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  216.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  217.       UPDATESTAGE
  218.       SET THE CASTNUM OF SPRITE 13 TO startCast
  219.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  220.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  221.       UPDATESTAGE
  222.     end repeat
  223.     mMove girl1
  224.     mMove girl2
  225.   END IF
  226. end
  227.